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Private Sub cmdOK_Click()
 
Dim screentop As Integer
Dim screenlength As Integer
Dim screenwidth As Integer
Dim screenheight As Integer
Dim screenstep As Integer
Dim x As Integer 'defines the number of reductions

screentop = frmAbout.Top
screenlength = frmAbout.Left
screenwidth = frmAbout.Width
screenheight = frmAbout.Height
screenstep = 25
'Do While frmabout.Width > (screenwidth / screenstep) And frmabout.Height > (screenheight / screenstep)
 Do Until x = 20
  frmAbout.Width = frmAbout.Width - (screenwidth / screenstep)
  frmAbout.Height = frmAbout.Height - (screenheight / screenstep)
  frmAbout.Top = screentop + (screenheight - frmAbout.Height) / 2
  frmAbout.Left = screenlength + (screenwidth - frmAbout.Width) / 2
  Refresh
  x = x + 1
Loop

'''''''''''''''''''''''''''''''''''''''''''''''''
Unload Me

End Sub

Private Sub Form_Load()

Me.Left = (frmMain.Width - Me.Width) / 2
Me.Top = (frmMain.Height - Me.Height) / 2

End Sub

